object fCorrigecep: TfCorrigecep
  Left = 192
  Top = 116
  Width = 760
  Height = 551
  BorderIcons = [biSystemMenu]
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 10
    Top = 10
    Width = 59
    Height = 16
    Caption = 'Endere'#231'o'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 579
    Top = 483
    Width = 145
    Height = 13
    Caption = 'CTRL + A = Marca Todos'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    PopupMenu = PopupMenu1
  end
  object Label6: TLabel
    Left = 579
    Top = 499
    Width = 167
    Height = 13
    Caption = 'CTRL + D = Desmarca Todos'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    PopupMenu = PopupMenu1
  end
  object BitBtn1: TBitBtn
    Left = 356
    Top = 476
    Width = 104
    Height = 40
    Caption = 'CORRIGIR'
    PopupMenu = PopupMenu1
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object Edit1: TEdit
    Left = 9
    Top = 30
    Width = 56
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 64
    Top = 30
    Width = 602
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 2
  end
  object DBGr_PROC: TDBGrid
    Left = 8
    Top = 75
    Width = 356
    Height = 352
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGr_PROCDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'RUA'
        Width = 450
        Visible = True
      end>
  end
  object BitBtn2: TBitBtn
    Left = 467
    Top = 476
    Width = 104
    Height = 40
    Caption = 'SAIR'
    PopupMenu = PopupMenu1
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object DBGrid1: TDBGrid
    Left = 367
    Top = 76
    Width = 376
    Height = 350
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'COD_CEP'
        Title.Caption = 'C'#243'digo'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RUA'
        Width = 300
        Visible = True
      end>
  end
  object BitBtn3: TBitBtn
    Left = 667
    Top = 29
    Width = 75
    Height = 25
    Caption = 'PROCURA'
    PopupMenu = PopupMenu1
    TabOrder = 6
    OnClick = BitBtn3Click
  end
  object Button1: TButton
    Left = 93
    Top = 478
    Width = 101
    Height = 40
    Caption = 'LOCALIZAR'
    TabOrder = 7
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 368
    Top = 56
    Width = 376
    Height = 20
    Caption = 'GRID DE CORRE'#199#195'O'
    TabOrder = 8
  end
  object Panel2: TPanel
    Left = 9
    Top = 56
    Width = 352
    Height = 20
    Caption = 'GRID DE PROCURA'
    TabOrder = 9
  end
  object Edit3: TEdit
    Left = 8
    Top = 430
    Width = 737
    Height = 24
    Color = clInfoBk
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
  end
  object proc_cep: TSQLClientDataSet
    CommandText = 
      'select * from CEP '#13#10'where udf_collatebr(RUA) CONTAINING :nome'#13#10'o' +
      'rder by RUA'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'nome'
        ParamType = ptInput
      end>
    DBConnection = DM.scSge
    Left = 436
    Top = 211
    object proc_cepCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object proc_cepRUA: TStringField
      DisplayLabel = 'Endere'#231'o'
      FieldName = 'RUA'
      Size = 50
    end
  end
  object SQLDataSet1: TSQLDataSet
    CommandText = 'select * from CEP '#13#10'order by RUA'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 48
    Top = 114
    object SQLDataSet1COD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      Required = True
    end
    object SQLDataSet1BAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 35
    end
    object SQLDataSet1CIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 30
    end
    object SQLDataSet1CEP: TStringField
      FieldName = 'CEP'
      Size = 9
    end
    object SQLDataSet1UF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object SQLDataSet1RUA: TStringField
      FieldName = 'RUA'
      Size = 50
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    Left = 80
    Top = 114
  end
  object cds_cep: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 112
    Top = 114
    object cds_cepCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      Required = True
    end
    object cds_cepBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 35
    end
    object cds_cepCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 30
    end
    object cds_cepCEP: TStringField
      FieldName = 'CEP'
      Size = 9
    end
    object cds_cepUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object cds_cepRUA: TStringField
      FieldName = 'RUA'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = cds_cep
    Left = 152
    Top = 114
  end
  object DataSource2: TDataSource
    DataSet = proc_cep
    Left = 480
    Top = 210
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 200
    Top = 336
    object MarcaTodos1: TMenuItem
      Caption = 'Marca Todos'
      ShortCut = 16449
      OnClick = MarcaTodos1Click
    end
    object DesmarcaTodos1: TMenuItem
      Caption = 'Desmarca Todos'
      ShortCut = 16452
      OnClick = DesmarcaTodos1Click
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = ANSI_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 304
    Top = 18
  end
  object proc: TSQLDataSet
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 208
    Top = 114
    object procNOME: TStringField
      FieldName = 'NOME'
      Size = 60
    end
  end
end
